home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_11_1986_Transactor_Publishing.d64 / dvorak convert (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  38 lines
  1. 10 rem save"0:dvorak.ldr",8
  2. 100 for i=820 to 1017: read x$
  3. 110 h=asc(left$(x$,1))-48:  if h>9 then h=h-7
  4. 120 l=asc(right$(x$,1))-48: if l>9 then l=l-7
  5. 130 x=h*16+l: poke i,x: ch=ch+x: next
  6. 140 if ch<>25301 then print "** data error **": end
  7. 150 sys820: print "** dvorak keyboard enabled **": end
  8. 160 :
  9. 170 data a0, 00, 84, fb, 84, fd, a9, e0
  10. 180 data 85, fc, a9, a0, 85, fe, b1, fb
  11. 190 data 91, fb, b1, fd, 91, fd, 88, d0
  12. 200 data f5, e6, fe, e6, fc, d0, ef, a5
  13. 210 data 01, 29, fd, 85, 01, a9, 77, 85
  14. 220 data fb, a9, 03, 85, fc, a9, 80, 85
  15. 230 data fd, a9, eb, 85, fe, a0, 81, b1
  16. 240 data fb, 91, fd, 88, d0, f9, a9, e5
  17. 250 data 8d, d6, fd, 60
  18. 260 rem *** unshifted keys ***
  19. 270 data 14, 0d, 1d, 88, 85, 86, 87, 11
  20. 280 data 33, 2c, 41, 34, 3b, 4f, 2e, 01
  21. 290 data 35, 50, 45, 36, 4a, 55, 59, 51
  22. 300 data 37, 46, 49, 38, 58, 44, 47, 4b
  23. 310 data 39, 43, 48, 30, 4d, 54, 52, 42
  24. 320 data 5d, 4c, 4e, 3d, 56, 53, 3f, 57
  25. 330 data 5c, 2a, 2d, 13, 01, 3d, 5e, 5a
  26. 340 data 31, 5f, 04, 32, 20, 02, 27, 03
  27. 350 data ff
  28. 360 rem *** shifted keys ***
  29. 370 data 94, 8d, 9d, 8c, 89, 8a, 8b, 91
  30. 380 data 23, 2c, c1, 24, 3a, cf, 2e, 01
  31. 390 data 25, d0, c5, 5c, ca, d5, d9, d1
  32. 400 data 26, c6, c9, 2a, d8, c4, c7, cb
  33. 410 data 28, c3, c8, 29, cd, d4, d2, c2
  34. 420 data 5b, cc, ce, 2b, d6, d3, 3f, d7
  35. 430 data a9, c0, 2d, 93, 01, 3d, de, da
  36. 440 data 21, 5f, 04, 40, a0, 02, 22, 83
  37. 450 data ff
  38.